home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 2
/
The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO
/
clang
/
dosrcss.zip
/
RCSMERGE.C
< prev
next >
Wrap
C/C++ Source or Header
|
1990-07-18
|
10KB
|
295 lines
/*
* rcsmerge operation
*/
#ifndef lint
static char rcsid[]=
"$Header: /site/tmp/dosrcs/src/RCS/rcsmerge.c,v 5.5 90/07/16 21:39:57 lfk Release $ Purdue CS";
#endif
/*****************************************************************************
* join 2 revisions with respect to a third
*****************************************************************************
*/
/* Copyright (C) 1982, 1988, 1989 Walter Tichy
Distributed under license by the Free Software Foundation, Inc.
This file is part of RCS.
RCS is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
RCS is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with RCS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
Report problems and direct all questions to:
rcs-bugs@cs.purdue.edu
*/
/* $Log: rcsmerge.c,v $
* Revision 5.5 90/07/16 21:39:57 lfk
* checkin for release compilation
*
* Revision 5.4 90/07/15 22:55:32 lfk
* Almost the end of major revison for MS-DOS version of RCS
*
* Revision 5.3 90/07/15 20:25:43 lfk
* Most major fixes added between rev 5.1 and rev 5.5:
* signals fixed so they work on MS-DOS
* Added MKS arguments code so argv can be large
* added code to handle slashes a'la Unix
* added more file extensions to system from MS-DOS
*
* Revision 5.2 90/07/15 11:34:31 ROOT_DOS
* DOS version of RCS 4.0 checked in for MODS
* by lfk@athena.mit.edu
* Also update to MSC 6.0
*
* Revision 4.5 89/05/01 15:13:16 narten
* changed copyright header to reflect current distribution rules
*
* Revision 4.4 88/11/08 12:00:47 narten
* changes from eggert@sm.unisys.com (Paul Eggert)
*
* Revision 4.4 88/08/09 19:13:13 eggert
* Beware merging into a readonly file.
* Beware merging a revision to itself (no change).
* Use execv(), not system(); yield exit status like diff(1)'s.
*
* Revision 4.3 87/10/18 10:38:02 narten
* Updating version numbers. Changes relative to version 1.1
* actually relative to 4.1
*
* Revision 1.3 87/09/24 14:00:31 narten
* Sources now pass through lint (if you ignore printf/sprintf/fprintf
* warnings)
*
* Revision 1.2 87/03/27 14:22:36 jenkins
* Port to suns
*
* Revision 1.1 84/01/23 14:50:36 kcs
* Initial revision
*
* Revision 4.1 83/03/28 11:14:57 wft
* Added handling of default branch.
*
* Revision 3.3 82/12/24 15:29:00 wft
* Added call to catchsig().
*
* Revision 3.2 82/12/10 21:32:02 wft
* Replaced getdelta() with gettree(); improved error messages.
*
* Revision 3.1 82/11/28 19:27:44 wft
* Initial revision.
*
*/
#include "rcsbase.h"
#ifndef lint
static char rcsbaseid[] = RCSBASE;
#endif
static char co[] = CO;
static char merge[] = MERGE;
extern int cleanup(); /* cleanup after signals */
extern char * mktempfile(); /*temporary file name generator */
extern struct hshentry * genrevs(); /*generate delta numbers */
extern int nerror; /*counter for errors */
#ifdef MSDOS
extern char *getmpdir();
char tmpdir[NCPPN];
#endif /* MSODS */
char *RCSfilename;
char *workfilename;
char * temp1file, * temp2file;
#ifdef MKS
main( int argc, char * argv[], char * env[] )
#else
main( argc, argv )
int argc;
char *argv[];
#endif /* MKS Startup Args */
{
char * cmdusage;
int revnums; /* counter for revision numbers given */
int tostdout;
int nochange;
char * rev1, * rev2; /*revision numbers*/
char commarg[revlength+3];
char numericrev[revlength]; /* holds expanded revision number */
struct hshentry * gendeltas[hshsize];/*stores deltas to be generated*/
struct hshentry * target;
#ifdef MKS
int z = 0;
int ARGC = 0;
char **tmp;
char *env_name;
# define MAXARGS 500 /* This means 500 items on the command line */
if (!(tmp = (char **)malloc(sizeof(char *)*(MAXARGS+1)))) {
fprintf(stderr, "%s: can't allocate space for arguments\n",argv[0]);
exit(1);
}
for ( z = 0 ; env[z] != NULL; z++) { /* loop through environment */
if (*env[z] == '~') { /* testing for entries begining with '~' */
*++env[z]; /* increment pointer to delete '~' */
tmp[ARGC++] = env[z]; /* add it to our new array */
if (z >= MAXARGS) {
fprintf(stderr, "%s: can't handle any more arguments\n", argv[0]);
goto list;
}
}
else if (*env[z] == '_') { /* testing for entries begining with _ */
*++env[z] ; *++env[z]; /* move past the '_' and the '=' */
env_name = env[z]; /* copy the name */
}
}
list:
if ( STREQ( (char *) argv[0] , env_name ) ) { /* test name against startup args */
/* environment arguments meant for this program */
# ifdef DEBUG
printf("Using shell supplied args\n");
# endif
argc = ARGC;
tmp[ARGC] = NULL; /* the terminal NULL */
argv = tmp;
}
# ifdef DEBUG
else
printf("Using startup supplied args\n");
# endif /* debug */
#endif /* MKS */
catchints();
cmdid = "rcsmerge";
cmdusage = "command format:\n rcsmerge -p -rrev1 -rrev2 file\n rcsmerge -p -rrev1 file";
revnums=0;tostdout=false;nochange=false;
while (--argc,++argv, argc>=1 && ((*argv)[0] == '-')) {
switch ((*argv)[1]) {
case 'p':
tostdout=true;
/* falls into -r */
case 'r':
if ((*argv)[2]!='\0') {
if (revnums==0) {
rev1= *argv+2; revnums=1;
} elif (revnums==1) {
rev2= *argv+2; revnums=2;
} else {
faterror("too many revision numbers");
}
} /* do nothing for empty -r or -p */
break;
default:
faterror("unknown option: %s\n%s", *argv,cmdusage);
};
} /* end of option processing */
if (argc<1) faterror("No input file\n%s",cmdusage);
if (revnums<1) faterror("no base revision number given");
#ifdef MSDOS
strcpy( tmpdir, (char *) gettmpdir() );
#endif /* MSDOS */
/* now handle all filenames */
if (pairfilenames(argc,argv,true,false)==1) {
if (argc>2 || (argc==2&&argv[1]!=nil))
warn("too many arguments");
diagnose("RCS file: %s",RCSfilename);
if (!(access(workfilename,tostdout?4:6)==0))
nowork();
if (!trysema(RCSfilename,false)) goto end; /* give up */
gettree(); /* reads in the delta tree */
if (Head==nil) faterror("no revisions present");
if (!expandsym(rev1,numericrev)) goto end;
if (!(target=genrevs(numericrev, (char *)nil, (char *)nil, (char *)nil,gendeltas))) goto end;
rev1=target->num;
if (revnums==1) /*get default for rev2 */
rev2=Dbranch!=nil?Dbranch->num:Head->num;
if (!expandsym(rev2,numericrev)) goto end;
if (!(target=genrevs(numericrev, (char *)nil, (char *)nil, (char *)nil,gendeltas))) goto end;
rev2=target->num;
if (strcmp(rev1,rev2) == 0) {
diagnose("Merging revision %s to itself (no change)",
rev1
);
nochange = true;
if (tostdout) {
FILE *w = fopen(workfilename,"r");
if (w==NULL)
nowork();
fastcopy(w,stdout);
}
goto end;
}
#ifdef MSDOS
temp1file=mktempfile(tmpdir,TMPFILE1);
temp2file=mktempfile(tmpdir,TMPFILE2);
#else
temp1file=mktempfile("/tmp/",TMPFILE1);
temp2file=mktempfile("/tmp/",TMPFILE2);
#endif /* MSDOS */
diagnose("retrieving revision %s",rev1);
VOID sprintf(commarg,"-p%s",rev1);
if (run((char*)nil,temp1file, co,"-q",commarg,RCSfilename,(char*)nil)){
faterror("co failed");
}
diagnose("retrieving revision %s",rev2);
VOID sprintf(commarg,"-p%s",rev2);
if (run((char*)nil,temp2file, co,"-q",commarg,RCSfilename,(char*)nil)){
faterror("co failed");
}
diagnose("Merging differences between %s and %s into %s%s",
rev1, rev2, workfilename,
tostdout?"; result to stdout":"");
if (
tostdout
#if defined(MSDOS) && defined(MKS)
? run((char*)nil,(char*)nil,"sh",merge,"-p",workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)
: run((char*)nil,(char*)nil,"sh",merge, workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)) {
#else
? run((char*)nil,(char*)nil,merge,"-p",workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)
: run((char*)nil,(char*)nil,merge, workfilename,temp1file,temp2file,workfilename,rev2,(char*)nil)) {
#endif
faterror("merge failed");
}
}
end:
VOID cleanup();
exit(2*(nerror!=0) + nochange);
}
nowork()
{
faterror("Can't open %s",workfilename);
}